home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 101-125 / 105 / bison / derives.c < prev    next >
C/C++ Source or Header  |  1995-03-13  |  3KB  |  122 lines

  1. /* Match rules with nonterminals for bison,
  2.    copyright (C) 1984 Bob Corbett and Richard Stallman
  3.  
  4.    Permission is granted to anyone to make or distribute verbatim copies of this program
  5.    provided that the copyright notice and this permission notice are preserved;
  6.    and provided that the recipient is not asked to waive or limit his right to
  7.    redistribute copies as permitted by this permission notice;
  8.    and provided that anyone possessing an executable copy
  9.    is granted access to copy the source code, in machine-readable form,
  10.    in some reasonable manner.
  11.  
  12.    Permission is granted to distribute derived works or enhanced versions of
  13.    this program under the above conditions with the additional condition
  14.    that the entire derivative or enhanced work
  15.    must be covered by a permission notice identical to this one.
  16.  
  17.    Anything distributed as part of a package containing portions derived
  18.    from this program, which cannot in current practice perform its function usefully
  19.    in the absense of what was derived directly from this program,
  20.    is to be considered as forming, together with the latter,
  21.    a single work derived from this program,
  22.    which must be entirely covered by a permission notice identical to this one
  23.    in order for distribution of the package to be permitted.
  24.  
  25.  In other words, you are welcome to use, share and improve this program.
  26.  You are forbidden to forbid anyone else to use, share and improve
  27.  what you give them.   Help stamp out software-hoarding!  */
  28.  
  29. /* set_derives finds, for each variable (nonterminal), which rules can derive it.
  30.    It sets up the value of derives so that
  31.    derives[i - ntokens] points to a vector of rule numbers, terminated with a zero.  */
  32.  
  33. #include <stdio.h>
  34. #include "new.h"
  35. #include "types.h"
  36. #include "gram.h"
  37.  
  38.  
  39. short **derives;
  40.  
  41.  
  42. set_derives()
  43. {
  44.   register int i;
  45.   register int lhs;
  46.   register shorts *p;
  47.   register short *q;
  48.   register shorts **dset;
  49.   register shorts *delts;
  50.  
  51.   dset = NEW2(nvars, shorts *) - ntokens;
  52.   delts = NEW2(nrules + 1, shorts);
  53.  
  54.   p = delts;
  55.   for (i = nrules; i > 0; i--)
  56.     {
  57.       lhs = rlhs[i];
  58.       p->next = dset[lhs];
  59.       p->value = i;
  60.       dset[lhs] = p;
  61.       p++;
  62.     }
  63.  
  64.   derives = NEW2(nvars, short *) - ntokens;
  65.   q = NEW2(nvars + nrules, short);
  66.  
  67.   for (i = ntokens; i < nsyms; i++)
  68.     {
  69.       derives[i] = q;
  70.       p = dset[i];
  71.       while (p)
  72.     {
  73.       *q++ = p->value;
  74.       p = p->next;
  75.     }
  76.       *q++ = -1;
  77.     }
  78.  
  79. #ifdef    DEBUG
  80.   print_derives();
  81. #endif
  82.  
  83.   FREE(dset + ntokens);
  84.   FREE(delts);
  85. }
  86.  
  87.  
  88. free_derives()
  89. {
  90.   FREE(derives[ntokens]);
  91.   FREE(derives + ntokens);
  92. }
  93.  
  94.  
  95.  
  96. #ifdef    DEBUG
  97.  
  98. print_derives()
  99. {
  100.   register int i;
  101.   register short *sp;
  102.  
  103.   extern char **tags;
  104.  
  105.   printf("\n\n\nDERIVES\n\n");
  106.  
  107.   for (i = ntokens; i < nsyms; i++)
  108.     {
  109.       printf("%s derives", tags[i]);
  110.       for (sp = derives[i]; *sp > 0; sp++)
  111.     {
  112.       printf("  %d", *sp);
  113.     }
  114.       putchar('\n');
  115.     }
  116.  
  117.   putchar('\n');
  118. }
  119.  
  120. #endif
  121.  
  122.